<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
修改大类名称
<%
ClassID=trim(Request("ClassID"))
Action=trim(Request("Action"))
NewClassName=trim(Request("NewClassName"))
OldClassName=trim(Request("OldClassName"))
if ClassID="" then
response.Redirect("ClassManage.asp")
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from Class where ID=" & CLng(ClassID),conn,1,3
if rs.Bof and rs.EOF then
response.write""
response.End
else
if Action="Modify" then
if NewClassName="" then
response.write""
response.End
end if
if NewClassName=OldClassName then
response.write""
response.End
end if
'修改后的大类名，不能重复
Set rs1=Server.CreateObject("Adodb.RecordSet")
rs1.open "Select * From Class Where ClassName='" & NewClassName & "'",conn,1,1
if not (rs1.bof and rs1.EOF) then
response.write""
response.End
end if
rs1.close
set rs1=nothing
rs("ClassName")=NewClassName
rs.update
rs.Close
set rs=Nothing
if NewClassName<>OldClassName then
conn.execute "Update article set ClassName='" & NewClassName & "' where ClassID=" & ClassID
end if
conn.close
set conn=nothing
Response.Redirect "ClassManage.asp"
else
%>